home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / game / gag / transacheat.lha / transacheat / Install TransArctica < prev    next >
Text File  |  1989-08-03  |  2KB  |  94 lines
  1. ;
  2. ; $VER: TransACheat Installation script 1.1 (24-08-97)
  3. ;
  4.  
  5. (procedure copydiskette (
  6.     (askdisk
  7.         (dest VAR_DISKETTE)
  8.         (prompt ("Please insert volume %s in any drive\n\nI will be needing it to proceed." VAR_DISKETTE))
  9.         (help @askdisk-help)
  10.         )
  11.     )
  12.  
  13.     (copyfiles
  14.         (prompt "Copying disk...")
  15.         (help @copyfiles-help)
  16.         (source ("%s:" VAR_DISKETTE))
  17.         (dest @default-dest)
  18.         (all)
  19. )
  20. )
  21.  
  22. (message "Welcome to TransArctica installation utility\n\nThis will install TransArctica on your Hard Disk\n(you need original TransArctica disks to proceed)\n\nAlso if you only have 2Megs of ram,\nyou are reccommended to install AStart\n\n(AStart © Wojciech Kocjan, not included)\n\nAStart available on Aminet: util/boot/astart.lha")
  23.  
  24. (welcome)
  25.  
  26. (set destdir
  27.     (askdir
  28.     (prompt "Enter destination path for TransArctica\n(a drawer called TransArctica will be created there)")
  29.     (help @askdir-help)
  30.     (default @default-dest)
  31.     )
  32. )
  33.  
  34. (set @default-dest (tackon destdir "TransArctica"))
  35.  
  36. (makedir @default-dest
  37.     (prompt "Creating \"TransArctica\" drawer")
  38.     (help @makedir-help)
  39.     (infos)
  40.     )
  41.  
  42. (set COPYCHEAT
  43.     
  44. )
  45.  
  46. (if (=(askbool
  47.         (prompt "Shall I copy the Cheating program as well?")
  48.         (help @askbool-help)
  49.         (default 1)
  50.         (choices "Copy" "Don't copy")
  51.     ) 1)
  52.     (
  53.     (copyfiles
  54.         (prompt "Copying TransArctica cheating program...")
  55.         (help @copyfiles-help)
  56.         (source "")
  57.         (dest @default-dest)
  58.         (choices "TransACheat" "TransArctica Cheat")
  59.         (infos)
  60.         (confirm)
  61.         )
  62.     )
  63. )
  64.  
  65. (complete 10)
  66.  
  67. (copyfiles
  68.     (prompt "Copying TransArctica icon...")
  69.     (help @copyfiles-help)
  70.     (source "")
  71.     (dest @default-dest)
  72.     (choices "TransArctica")
  73.     (infos)
  74.     (confirm)
  75. )
  76.  
  77. (complete 20)
  78.  
  79. (set VAR_DISKETTE "TransA_A")
  80. (copydiskette)
  81.  
  82. (complete 50)
  83.  
  84. (set VAR_DISKETTE "TransA_B")
  85. (copydiskette)
  86.  
  87. (complete 80)
  88.  
  89. (set VAR_DISKETTE "TransA_C")
  90. (copydiskette)
  91.  
  92. (complete 100)
  93. (exit)
  94.